home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr26 / massdesc.zip / DIZ.BTM next >
Text File  |  1993-06-06  |  2KB  |  66 lines
  1. CLS
  2. TEXT
  3.  
  4.          -----------------Mass Describe-----------------
  5.                         by  Donald Clancy
  6.  
  7.      This BTM file describes all the ZIP files in the current directory
  8.      by extracting the FILE_ID.DIZ file from the archive and using the first
  9.      line in the DIZ file for the description.
  10.  
  11.      NOTE:  Some editing of the descriptions will be required.  The authors
  12.      of the DIZ files are rarely consistent.
  13.  
  14. ENDTEXT
  15. @ECHO OFF
  16.  
  17. IF EXIST TEMP.TMP DEL TEMP.TMP /Q
  18. *DIR *.ZIP /B > TEMP.TMP
  19. SET LEN=%@LINES[TEMP.TMP]
  20. ECHO      Currently describing %@EVAL[%LEN+1] ZIP files.
  21. SET I=0
  22. SET DESC=0
  23. SET NON=0
  24. SET ALR=0
  25. SCREEN 16 1
  26. :LOOP
  27. SET FILE=%@LINE[TEMP.TMP,%I]
  28. SCRPUT 14 7 RED ON BLACK %@EVAL[%I+1]
  29. SCRPUT 14 10 YELLOW ON BLACK             ■
  30. SCRPUT 14 10 YELLOW ON BLACK %FILE
  31. IFF "%@DESCRIPT[%FILE]"="" THEN
  32. IF EXIST FILE_ID.DIZ DEL FILE_ID.DIZ /Q
  33. PKUNZIP %FILE FILE_ID.DIZ > NUL
  34. IFF EXIST FILE_ID.DIZ THEN
  35. DESCRIBE %FILE "%@LINE[FILE_ID.DIZ,0]"
  36. SCRPUT 14 25 BLUE ON BLACK                                              ■
  37. SCRPUT 14 25 BLUE ON BLACK %@LINE[FILE_ID.DIZ,0]
  38. SET DESC=%@EVAL[%DESC+1]
  39. ELSE
  40. DESCRIBE %FILE "n/a"
  41. SCRPUT 14 25 BRIGHT RED ON BLACK "n/a                                   "
  42. SET NON=%@EVAL[%NON+1]
  43. ENDIFF
  44. ELSE
  45. SET ALR=%@EVAL[%ALR+1]
  46. SCRPUT 14 25 BLUE ON BLACK                                               ■
  47. SCRPUT 14 25 BRIGHT YELLOW ON BLACK %@DESCRIPT[%FILE]
  48. ENDIFF
  49. IF %I=%LEN GOTO OUT
  50. SET I=%@EVAL[%I + 1]
  51. GOTO LOOP
  52. :OUT
  53. SCREEN 16 1
  54. ECHO      Description process complete.
  55. ECHO       %@EVAL[%LEN+1] file(s)
  56. ECHO       %DESC file(s) were described.
  57. ECHO       %NON file(s) did not contain a FILE_ID.DIZ file.
  58. ECHO       %ALR file(s) already had a description.
  59. UNSET I
  60. UNSET FILE
  61. UNSET LEN
  62. UNSET NON
  63. UNSET ALR
  64. IF EXIST TEMP.TMP DEL TEMP.TMP /Q
  65. IF EXIST FILE_ID.DIZ DEL FILE_ID.DIZ /Q
  66.